home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_1.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  966 b   |  36 lines
  1. on exitFrame
  2.   global nappi_sprite, us, uss, fade_count, fade_limit
  3.   LiveRollOver(103, 103, 0)
  4.   DefCurs()
  5.   set fade_limit to 3
  6.   if fade_count < fade_limit then
  7.     set fade_count to fade_count + 1
  8.   end if
  9.   if the puppet of sprite nappi_sprite = 0 then
  10.     set the puppet of sprite nappi_sprite to 1
  11.   end if
  12.   set us to 0
  13.   set uss to 0
  14.   cov_test_a(2, 89, "sun_c1", "sun")
  15.   cov_test_a(3, 143, "sun_c2", "sun")
  16.   cov_test_a(4, 199, "sun_c3", "sun")
  17.   cov_test_a(5, 328, "sun_c4", "sun")
  18.   cov_test_a(6, 385, "sun_c5", "sun")
  19.   cov_test(2, 89, "sun_c1", "sun")
  20.   cov_test(3, 143, "sun_c2", "sun")
  21.   cov_test(4, 199, "sun_c3", "sun")
  22.   cov_test(5, 328, "sun_c4", "sun")
  23.   cov_test(6, 385, "sun_c5", "sun")
  24.   if us = 1 then
  25.     set the locH of sprite nappi_sprite to 460
  26.   else
  27.     if the locV of sprite nappi_sprite < 480 then
  28.       set the locV of sprite nappi_sprite to 490
  29.     end if
  30.   end if
  31.   if uss = 1 then
  32.     updateStage()
  33.   end if
  34.   go(the frame)
  35. end
  36.